PC Home 109/PC Home 109.iso/data1.cab/Program_Files/quiz.dxr/00004.ls

Text File | 2001-03-02 | 807 b | 33 lines

on mouseDown
  set the text of field "password" to EMPTY
  set the editable of member "name" to 0
  set the editable of member "password" to 1
end

on keyDown
  if the keyCode = "48" then
    set the editable of member "password" to 0
    go("choicescreen")
  end if
  if the keyCode = 36 then
    set the editable of member "password" to 0
    go("choicescreen")
  end if
  set i to the number of chars in field "password"
  if the keyCode = 51 then
    put EMPTY into char i of field "password"
  end if
  if the keyCode = 117 then
    put EMPTY into char i of field "password"
  end if
  if the keyCode <> 48 then
    if the keyCode <> 51 then
      if the keyCode <> 117 then
        if the keyCode <> 36 then
          put "*" after field "password"
        end if
      end if
    end if
  end if
end